home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / DTP / DTP_TEX / 2848F.ZIP / INPUTS2.ARC / SLITEX.TEX < prev    next >
Text File  |  1987-12-15  |  25KB  |  703 lines
  1. % SLITEX VERSION 2.09 - RELEASE OF 10 November 86
  2. % Copyright (C) 1986 by Leslie Lamport
  3.  
  4. \everyjob{\typeout{SliTeX Version 2.09 - Release 10 November 86}}
  5. \immediate\write10{SliTeX Version 2.09 - Release 10 November 86}
  6.  
  7. % NOTES FOR DEFINING FONTS AND STYLES FOR SLIDES
  8. %   Every font definition -- \rm, \it, etc. must \def\@currfont to itself.
  9. %   Every size definition such as \normalsize is defined to be
  10. %          \@normalsize
  11. %          \def\@currsize{\@normal}\rm 
  12. %          commands to set:
  13. %             \baselineskip 
  14. %             \lineskip
  15. %             the ...displayskip and ...displayshortskip parameters
  16. %             \strutbox
  17. %             \parskip and \@parskip
  18. %   where \@normal makes all the font definitions.
  19. %   \@normal must test the switch @visible and define its 
  20. %   fonts equal to the visible or the invisible versions accordingly.
  21.  
  22.  \message{hacks,}
  23. %      **********************************************
  24. %      *          HACKS FOR SLIDE MACROS            *
  25. %      **********************************************
  26. % 
  27. % The macro \@getend{FOO} defines \@arg to equal all the text up to
  28. % but excluding the next \end{FOO}, which it gobbles up.  
  29. % Note that the characters in this text will all be interpreted with
  30. % their current category codes, so any embedded environments (such as
  31. % an example environment) won't work right.  NOTE--GOBBLES
  32. % THE \fi's -- MUST BE MODIFIED LIKE \@gobbletoend BELOW.
  33.  
  34.  
  35. %\def\@getend#1{\def\@arg{}\def\@argend{#1}\@addtoarg}
  36. %
  37. %\long\def\@addtoarg#1\end#2{\tokens{#1}%
  38. %\long\edef\@x@add##1\@@{\long\def\@arg{##1\the\tokens}}%
  39. %\expandafter\@x@add\@arg\@@\def\@x@a{#2}\ifx\@x@a\@argend\else
  40. %\tokens{\end{#2}}\long\edef\@x@add##1\@@{\long\def\@arg{##1\the\tokens}}%
  41. %\expandafter\@x@add\@arg\@@\@addtoarg\fi}
  42.  
  43. % \@gobbletoend{FOO} gobbles all text up to and including the
  44. % next \end{FOO}.  Must be used inside an \if, right before the \fi.
  45.  
  46. \def\@gobbletoend#1{\def\@argend{#1}\@ggobtoend}
  47.  
  48. \long\def\@ggobtoend#1\end#2{\@xfi\def\@x@a{#2}%
  49. \ifx\@x@a\@argend\else\@ggobtoend\fi}
  50. \def\@xfi{\fi}
  51.  
  52.  \message{slides,}
  53. %      **********************************************
  54. %      *               SLIDE  MACROS                *
  55. %      **********************************************
  56. % 
  57. % Switches:
  58. % @bw      : true if making black and white slides
  59. % @visible : true if visible output to be produced.
  60. % @makingslides : true if executing \blackandwhite or \colorslides
  61.  
  62. \newif\if@bw
  63. \newif\if@visible
  64. \newif\if@onlyslidesw \@onlyslideswfalse
  65. \newif\if@onlynotesw  \@onlynoteswfalse
  66. \newif\if@makingslides
  67.  
  68. % Counters
  69. %  slide   = slide number
  70. %  overlay = overlay number for a slide
  71. %  note    = note number for a slide
  72.  
  73. \countdef\c@slide=0 \c@slide=0
  74. \def\cl@slide{}
  75. \countdef\c@overlay=1 \c@overlay=0
  76. \def\cl@overlay{}
  77. \countdef\c@note=2 \c@note=0
  78. \def\cl@note{}
  79.  
  80.  
  81. \@addtoreset{overlay}{slide}
  82. \@addtoreset{note}{slide}
  83.  
  84. % Redefine page counter to some other number.
  85. % The page counter will always be zero except when putting out an
  86. % extra page for a slide, note or overlay.
  87. %
  88. \@definecounter{page} 
  89. \@addtoreset{page}{slide}
  90. \@addtoreset{page}{note}
  91. \@addtoreset{page}{overlay}
  92.  
  93.  
  94. \def\theslide{\@arabic\c@slide}
  95. \def\theoverlay{\theslide-\@alph\c@overlay}
  96. \def\thenote{\theslide-\@arabic\c@note}
  97.  
  98. % \@setlimits \LIST \LOW \HIGH 
  99. %
  100. %    Assumes that \LIST = RANGE1,RANGE2,...,RANGEn  (n>0)
  101. %    Where RANGEi = j or j-k.
  102. %    
  103. %    Then \@setlimits  globally sets
  104. %        (i) \LIST := RANGE2, ... , RANGEn
  105. %       (ii) \LOW  := p
  106. %      (iii) \HIGH := q
  107. %   where either RANGE1 = p-q   or  RANGE1 = p  and  q=p.
  108.  
  109. \def\@sl@getargs#1-#2-#3\relax#4#5{\xdef#4{#1}\xdef#5{#2}}
  110. \def\@sl@ccdr#1,#2\relax#3#4{\xdef#3{#1-#1-}\xdef#4{#2}}
  111.  
  112. \def\@setlimits #1#2#3{\expandafter\@sl@ccdr#1\relax\@sl@gtmp #1%
  113. \expandafter\@sl@getargs\@sl@gtmp\relax#2#3}
  114.  
  115. % \onlyslides{LIST} ::=
  116. %  BEGIN
  117. %    @onlyslidesw := true
  118. %    \@doglslidelist :=G LIST,999999,999999
  119. %   if @onlynotesw = true
  120. %     else @onlynotesw := true
  121. %          \@doglnotelist :=G LIST,999999,999999
  122. %   fi
  123. %   message: Only Slides LIST
  124. %  END
  125.  
  126. \def\onlyslides#1{\@onlyslideswtrue\gdef\@doglslidelist{#1,999999,999999}%
  127. \if@onlynotesw \else \@onlynoteswtrue\gdef\@doglnotelist{999999,999999}\fi
  128. \typeout{Only Slides #1}}
  129.  
  130. % \onlynotes{LIST} ::=
  131. %  BEGIN
  132. %    @onlynotesw := true
  133. %    \@doglnotelist :=G LIST,999999,999999
  134. %   if @onlyslidesw = true
  135. %     else \@onlyslidesw := true
  136. %          \@doglslidelist{999999,999999}
  137. %   fi
  138. %   message: Only Notes LIST
  139. %  END
  140.  
  141. \def\onlynotes#1{\@onlynoteswtrue\gdef\@doglnotelist{#1,999999,999999}%
  142. \if@onlyslidesw \else \@onlyslideswtrue\gdef\@doglslidelist{999999,999999}\fi
  143. \typeout{Only Notes #1}}
  144.  
  145.  
  146. % \blackandwhite #1  ::=
  147. %    \newpage
  148. %    page counter := 0
  149. %    @bw := T
  150. %    @visible := T
  151. %    if @onlyslidesw = true
  152. %      then  \@doslidelist := \@doglslidelist
  153. %            \@setlimits\@doslidelist\@doslidelow\@doslidehigh
  154. %    fi
  155. %    if @onlynotesw = true
  156. %      then  \@donotelist := \@doglnotelist
  157. %            \@setlimits\@donotelist\@donotelow\@donotehigh
  158. %    fi
  159. %    \normalsize    % Note, this sets font to \rm , which sets
  160. %                     % \@currfont to \rm
  161. %    counter slidenumber := 0
  162. %    counter note        := 0
  163. %    counter overlay     := 0
  164. %    @makingslides       := T
  165. %    input #1
  166. %    @makingslides       := F
  167.  
  168. \def\blackandwhite#1{\newpage\setcounter{page}{0}\@bwtrue\@visibletrue
  169. \if@onlyslidesw \xdef\@doslidelist{\@doglslidelist}%
  170. \@setlimits\@doslidelist\@doslidelow\@doslidehigh\fi
  171. \if@onlynotesw \xdef\@donotelist{\@doglnotelist}%
  172. \@setlimits\@donotelist\@donotelow\@donotehigh\fi
  173. \normalsize\setcounter{slide}{0}\setcounter{overlay}{0}%
  174. \setcounter{note}{0}\@makingslidestrue\input #1\@makingslidesfalse}
  175.  
  176.  
  177. % \colors{COLORS} ::=
  178. %  for \@colortemp := COLORS
  179. %     do \csname \@colortemp \endcsname == \@color{\@colortemp} od
  180. %  if \@colorlist = empty
  181. %     then \@colorlist := COLORS
  182. %     else \@colorlist := \@colorlist , COLORS
  183. %  fi
  184. %
  185. \def\colors#1{\@for\@colortemp:=#1\do{\expandafter
  186.   \xdef\csname\@colortemp\endcsname{\noexpand\@color{\@colortemp}}}\ifx
  187.   \@colorlist\@empty \gdef\@colorlist{#1}
  188.     \else \xdef\@colorlist{\@colorlist,#1}\fi}
  189.  
  190. \def\@colorlist{}
  191.  
  192. % \colorslides{FILE} ::=
  193. %    \newpage
  194. %    page counter := 0
  195. %    @bw := F
  196. %    for \@currcolor := \@colorlist
  197. %      do  @visible := T
  198. %          if @onlyslidesw = true
  199. %            then  \@doslidelist := \@doglslidelist
  200. %                  \@setlimits\@doslidelist\@doslidelow\@doslidehigh
  201. %          fi
  202. %          if @onlynotesw = true
  203. %            then  \@donotelist := \@doglnotelist
  204. %                  \@setlimits\@donotelist\@donotelow\@donotehigh
  205. %          fi
  206. %          \normalsize
  207. %          counter slide := 0
  208. %          counter overlay := 0
  209. %          counter note    := 0
  210. %          type message
  211. %          generate color layer output page
  212. %          @makingslides := T
  213. %          input #1
  214. %          @makingslides := F
  215. %      od
  216.  
  217. \def\colorslides#1{\newpage\setcounter{page}{0}\@bwfalse
  218. \@for\@currcolor:=\@colorlist\do
  219. {\@visibletrue
  220. \if@onlyslidesw \xdef\@doslidelist{\@doglslidelist}%
  221. \@setlimits\@doslidelist\@doslidelow\@doslidehigh\fi
  222. \if@onlynotesw \xdef\@donotelist{\@doglnotelist}%
  223. \@setlimits\@donotelist\@donotelow\@donotehigh\fi
  224. \normalsize\setcounter{slide}{0}\setcounter{overlay}{0}%
  225. \setcounter{note}{0}\typeout{color \@currcolor}%
  226. \newpage
  227. \begin{huge}
  228. \begin{center}
  229. COLOR LAYER\\[.75in]
  230. \@currcolor
  231. \end{center}
  232. \end{huge}
  233. \newpage
  234. \@makingslidestrue
  235. \input #1
  236. \@makingslidesfalse}}
  237.  
  238.  
  239. % \slide COLORS ::=
  240. %  BEGIN
  241. %   \stepcounter{slide}   
  242. %   \@slidesw :=G T
  243. %   if @onlyslidesw = true                     % set \@slidesw = T iff page to
  244. %     then                                   % be output
  245. %       while \c@slide > \@doslidehigh
  246. %          do  \@setlimits\@doslidelist\@doslidelow\@doslidehigh  od
  247. %       if \c@slide < \@doslidelow
  248. %         then \@slidesw := F
  249. %       fi
  250. %   fi
  251. %   if \@slidesw = T
  252. %      then \@slidesw :=G F
  253. %           \begingroup                           
  254. %              if @bw = true  
  255. %                then  \@slidesw :=G T   
  256. %                else \@color{COLORS}
  257. %                     \if@visible then \@slidesw :=G T \fi
  258. %              fi
  259. %            \endgroup
  260. %  fi
  261. %  if \@slidesw = T
  262. %    then \newpage
  263. %         \thispagestyle{slide}
  264. %    else \end{slide}
  265. %          \@gobbletoend{slide}
  266. %  fi
  267. % END
  268.  
  269. % \endslide ::=
  270. %  BEGIN
  271. %    \par\break
  272. %  END
  273.  
  274. \def\slide#1{\stepcounter{slide}\gdef\@slidesw{T}\if@onlyslidesw
  275. \@whilenum \c@slide > \@doslidehigh\relax
  276. \do{\@setlimits\@doslidelist\@doslidelow\@doslidehigh}\ifnum
  277. \c@slide < \@doslidelow\relax\gdef\@slidesw{F}\fi\fi
  278. \if\@slidesw T\gdef\@slidesw{F}\begingroup\if@bw\gdef\@slidesw{T}\else
  279. \@color{#1}\if@visible \gdef\@slidesw{T}\fi\fi\endgroup\fi
  280. \if\@slidesw T\newpage\thispagestyle{slide}%
  281. \else\end{slide}\@gobbletoend{slide}\fi}
  282.  
  283. \def\endslide{\par\break}
  284.  
  285. % \overlay COLORS ::=
  286. %  BEGIN
  287. %   \stepcounter{overlay}   
  288. %   \@slidesw :=G T
  289. %   if @onlyslidesw = T                       % set \@slidesw = T iff page to
  290. %     then                                  % be output
  291. %       if \c@slide < \@doslidelow
  292. %         then \@slidesw :=G F
  293. %       fi
  294. %  fi
  295. %  if \@slidesw = T
  296. %    \@slidesw :=G F
  297. %    \begingroup 
  298. %      if @bw = true 
  299. %          then  \@slidesw :=G T 
  300. %          else  \@color{COLORS}
  301. %                \if@visible then \@slidesw :=G T \fi
  302. %      fi
  303. %    \endgroup
  304. %  fi
  305. %  if \@slidesw = T
  306. %     then \newpage
  307. %          \thispagestyle{overlay}
  308. %     else \end{overlay}
  309. %          \@gobbletoend{overlay}
  310. %  fi
  311. % END
  312.  
  313. % \endoverlay ::=
  314. %  BEGIN
  315. %    \par\break
  316. %  END
  317.  
  318. \def\overlay#1{\stepcounter{overlay}\gdef\@slidesw{T}%
  319. \if@onlyslidesw\ifnum \c@slide < \@doslidelow\relax
  320. \gdef\@slidesw{F}\fi\fi
  321. \if\@slidesw T\gdef\@slidesw{F}\begingroup\if@bw\gdef\@slidesw{T}%
  322. \else\@color{#1}\if@visible \gdef\@slidesw{T}\fi\fi\endgroup\fi
  323. \if\@slidesw T\newpage\thispagestyle{overlay}%
  324. \else\end{overlay}\@gobbletoend{overlay}\fi}
  325.  
  326. \def\endoverlay{\par\break}
  327.  
  328. % \note ::=
  329. %  BEGIN
  330. %   \stepcounter{note}   
  331. %   if @bw = T
  332. %     then 
  333. %       \@slidesw :=G T
  334. %       if @onlynotesw = true                  % set \@notesw = T iff page to
  335. %         then                                 % be output
  336. %           while \c@slide > \@donotehigh
  337. %              do  \@setlimits\@donotelist\@donotelow\@donotehigh  od
  338. %           if \c@slide < \@donotelow
  339. %             then \@slidesw :=G F
  340. %           fi
  341. %       fi
  342. %     else \@slidesw :=G F
  343. %  fi
  344. %  if \@slidesw = T
  345. %     then \newpage
  346. %          \thispagestyle{note}
  347. %     else \end{note}
  348. %          \@gobbletoend{note}
  349. %  fi
  350. % END
  351.  
  352. % \endnote ::=
  353. %  BEGIN
  354. %    \par\break
  355. %  END
  356.  
  357. \def\note{\stepcounter{note}%
  358. \if@bw \gdef\@slidesw{T}\if@onlynotesw\@whilenum \c@slide > \@donotehigh\relax
  359. \do{\@setlimits\@donotelist\@donotelow\@donotehigh}\ifnum
  360. \c@slide < \@donotelow\relax \gdef\@slidesw{F}\fi\fi
  361. \else\gdef\@slidesw{F}\fi
  362. \if\@slidesw T\newpage\thispagestyle{note}\else
  363. \end{note}\@gobbletoend{note}\fi}
  364.  
  365. \def\endnote{\par\break}
  366.  
  367.  
  368. % \@color{COLORS} ::=
  369. %  BEGIN
  370. %   if math mode
  371. %     then type warning
  372. %   fi
  373. %   if @bw
  374. %     then @visible := T
  375. %     else @visible := F
  376. %         for \@x@a := COLORS
  377. %          do if \@x@a = \@currcolor
  378. %               then @visible := T
  379. %             fi
  380. %          od
  381. %   fi
  382. %   \@currsize -- sets the visibility of the current size
  383. %   \@currfont -- sets the visibility of the current font
  384. %   \ignorespaces
  385. % END
  386.  
  387. \def\@color#1{\@mmodetest
  388. \if@bw \@visibletrue\else\@visiblefalse
  389.   \@for \@x@a :=#1\do{\ifx\@x@a\@currcolor\@visibletrue\fi}\fi
  390.   \@currsize\@currfont\ignorespaces}
  391.  
  392. \def\@mmodetest{\ifmmode\@warning{Color-changing command in math mode}\fi}
  393.  
  394. % \invisible ::= BEGIN type warning if math mode
  395. %                      \@visiblefalse \@currsize\@currfont\ignorespaces END
  396.  
  397. \def\invisible{\@mmodetest\@visiblefalse\@currsize\@currfont\ignorespaces}
  398. \let\invisible=\invisible
  399. \let\endinvisible=\relax
  400.  
  401.  \message{picture,}
  402. %      ****************************************
  403. %      *          MODIFICATIONS TO            *
  404. %      *       THE PICTURE ENVIRONMENT        *
  405. %      ****************************************
  406. %
  407. %  Below are the new definitions of the picture-drawing macros
  408. %  required for SLiTeX.  Only those commands that actually
  409. %  draw something must be changed so that they do not produce
  410. %  any output when the @visible switch is false.
  411.  
  412. \def\line(#1,#2)#3{\if@visible\@xarg #1\relax \@yarg #2\relax
  413. \@linelen=#3\unitlength
  414. \ifnum\@xarg =0 \@vline 
  415.   \else \ifnum\@yarg =0 \@hline \else \@sline\fi
  416. \fi\fi}
  417.  
  418. \def\vector(#1,#2)#3{\if@visible\@xarg #1\relax \@yarg #2\relax
  419. \@linelen=#3\unitlength
  420. \ifnum\@xarg =0 \@vvector 
  421.   \else \ifnum\@yarg =0 \@hvector \else \@svector\fi
  422. \fi\fi}
  423.  
  424. \def\dashbox#1(#2,#3){\leavevmode\if@visible\hbox to \z@{\baselineskip \z@%
  425. \lineskip \z@%
  426. \@dashdim=#2\unitlength%
  427. \@dashcnt=\@dashdim \advance\@dashcnt 200
  428. \@dashdim=#1\unitlength\divide\@dashcnt \@dashdim
  429. \ifodd\@dashcnt\@dashdim=\z@%
  430. \advance\@dashcnt \@ne \divide\@dashcnt \tw@ 
  431. \else \divide\@dashdim \tw@ \divide\@dashcnt \tw@
  432. \advance\@dashcnt \m@ne
  433. \setbox\@dashbox=\hbox{\vrule \@height \@halfwidth \@depth \@halfwidth
  434. \@width \@dashdim}\put(0,0){\copy\@dashbox}%
  435. \put(0,#3){\copy\@dashbox}%
  436. \put(#2,0){\hskip-\@dashdim\copy\@dashbox}%
  437. \put(#2,#3){\hskip-\@dashdim\box\@dashbox}%
  438. \multiply\@dashdim 3 
  439. \fi
  440. \setbox\@dashbox=\hbox{\vrule \@height \@halfwidth \@depth \@halfwidth
  441. \@width #1\unitlength\hskip #1\unitlength}\@tempcnta=0
  442. \put(0,0){\hskip\@dashdim \@whilenum \@tempcnta <\@dashcnt
  443. \do{\copy\@dashbox\advance\@tempcnta \@ne }}\@tempcnta=0
  444. \put(0,#3){\hskip\@dashdim \@whilenum \@tempcnta <\@dashcnt
  445. \do{\copy\@dashbox\advance\@tempcnta \@ne }}%
  446. \@dashdim=#3\unitlength%
  447. \@dashcnt=\@dashdim \advance\@dashcnt 200
  448. \@dashdim=#1\unitlength\divide\@dashcnt \@dashdim
  449. \ifodd\@dashcnt \@dashdim=\z@%
  450. \advance\@dashcnt \@ne \divide\@dashcnt \tw@
  451. \else
  452. \divide\@dashdim \tw@ \divide\@dashcnt \tw@
  453. \advance\@dashcnt \m@ne
  454. \setbox\@dashbox\hbox{\hskip -\@halfwidth
  455. \vrule \@width \@wholewidth 
  456. \@height \@dashdim}\put(0,0){\copy\@dashbox}%
  457. \put(#2,0){\copy\@dashbox}%
  458. \put(0,#3){\lower\@dashdim\copy\@dashbox}%
  459. \put(#2,#3){\lower\@dashdim\copy\@dashbox}%
  460. \multiply\@dashdim 3
  461. \fi
  462. \setbox\@dashbox\hbox{\vrule \@width \@wholewidth 
  463. \@height #1\unitlength}\@tempcnta0
  464. \put(0,0){\hskip -\@halfwidth \vbox{\@whilenum \@tempcnta < \@dashcnt
  465. \do{\vskip #1\unitlength\copy\@dashbox\advance\@tempcnta \@ne }%
  466. \vskip\@dashdim}}\@tempcnta0
  467. \put(#2,0){\hskip -\@halfwidth \vbox{\@whilenum \@tempcnta< \@dashcnt
  468. \relax\do{\vskip #1\unitlength\copy\@dashbox\advance\@tempcnta \@ne }%
  469. \vskip\@dashdim}}}\fi\@makepicbox(#2,#3)}
  470.  
  471. \def\@oval(#1,#2)[#3]{\if@visible\begingroup \boxmaxdepth \maxdimen
  472.   \@ovttrue \@ovbtrue \@ovltrue \@ovrtrue
  473.   \@tfor\@tempa :=#3\do{\csname @ov\@tempa false\endcsname}\@ovxx
  474.   #1\unitlength \@ovyy #2\unitlength
  475.   \@tempdimb \ifdim \@ovyy >\@ovxx \@ovxx\else \@ovyy \fi
  476.   \@getcirc \@tempdimb
  477.   \@ovro \ht\@tempboxa \@ovri \dp\@tempboxa
  478.   \@ovdx\@ovxx \advance\@ovdx -\@tempdima \divide\@ovdx \tw@
  479.   \@ovdy\@ovyy \advance\@ovdy -\@tempdima \divide\@ovdy \tw@
  480.   \@circlefnt \setbox\@tempboxa
  481.   \hbox{\if@ovr \@ovvert32\kern -\@tempdima \fi
  482.   \if@ovl \kern \@ovxx \@ovvert01\kern -\@tempdima \kern -\@ovxx \fi
  483.   \if@ovt \@ovhorz \kern -\@ovxx \fi
  484.   \if@ovb \raise \@ovyy \@ovhorz \fi}\advance\@ovdx\@ovro
  485.   \advance\@ovdy\@ovro \ht\@tempboxa\z@ \dp\@tempboxa\z@
  486.   \@put{-\@ovdx}{-\@ovdy}{\box\@tempboxa}%
  487.   \endgroup\fi}
  488.  
  489. \def\@circle#1{\if@visible \begingroup \boxmaxdepth \maxdimen 
  490.    \@tempdimb #1\unitlength
  491.    \ifdim \@tempdimb >15.5pt\relax \@getcirc\@tempdimb
  492.       \@ovro\ht\@tempboxa 
  493.      \setbox\@tempboxa\hbox{\@circlefnt
  494.       \advance\@tempcnta\tw@ \char \@tempcnta
  495.       \advance\@tempcnta\m@ne \char \@tempcnta \kern -2\@tempdima
  496.       \advance\@tempcnta\tw@
  497.       \raise \@tempdima \hbox{\char\@tempcnta}\raise \@tempdima
  498.         \box\@tempboxa}\ht\@tempboxa\z@ \dp\@tempboxa\z@
  499.       \@put{-\@ovro}{-\@ovro}{\box\@tempboxa}%
  500.    \else  \@circ\@tempdimb{96}\fi\endgroup\fi}
  501.  
  502. \def\@dot#1{\if@visible\@tempdimb #1\unitlength \@circ\@tempdimb{112}\fi}
  503.  
  504. \long\def\@iframebox[#1][#2]#3{\leavevmode
  505.   \savebox\@tempboxa[#1][#2]{\kern\fboxsep #3\kern\fboxsep}\@tempdima\fboxrule
  506.     \advance\@tempdima \fboxsep \advance\@tempdima \dp\@tempboxa
  507.    \hbox{\lower \@tempdima\hbox
  508.   {\vbox{ \if@visible \hrule \@height \else \vskip \fi \fboxrule 
  509.           \hbox{\if@visible \vrule \@width \fboxrule \hskip-\fboxrule \fi
  510.                 \vbox{\vskip\fboxsep \box\@tempboxa\vskip\fboxsep}\if@visible 
  511.                 \vrule \@width \fboxrule \hskip-\fboxrule \fi}\if@visible 
  512.       \hrule \@height \else \vskip\fi\fboxrule}}}}
  513.          
  514.  
  515. \long\def\frame#1{\if@visible\leavevmode
  516. \vbox{\vskip-\@halfwidth\hrule \@height\@halfwidth \@depth \@halfwidth
  517.   \vskip-\@halfwidth\hbox{\hskip-\@halfwidth \vrule \@width\@wholewidth
  518.   \hskip-\@halfwidth #1\hskip-\@halfwidth \vrule \@width \@wholewidth
  519.   \hskip -\@halfwidth}\vskip -\@halfwidth\hrule \@height \@halfwidth
  520.   \@depth \@halfwidth\vskip -\@halfwidth}\else #1\fi}
  521.  
  522. \long\def\fbox#1{\leavevmode\setbox\@tempboxa\hbox{#1}\@tempdima\fboxrule
  523.     \advance\@tempdima \fboxsep \advance\@tempdima \dp\@tempboxa
  524.    \hbox{\lower \@tempdima\hbox
  525.   {\vbox{\if@visible \hrule \@height \else \vskip\fi\fboxrule 
  526.           \hbox{\if@visible\vrule \@width \else \hskip \fi\fboxrule 
  527.                  \hskip\fboxsep
  528.         \vbox{\vskip\fboxsep \box\@tempboxa\vskip\fboxsep}\hskip 
  529.                    \fboxsep \if@visible\vrule \@width\else\hskip \fi\fboxrule}
  530.            \if@visible\hrule \@height \else \vskip \fi\fboxrule}}}}
  531.  
  532.  \message{mods,}
  533. %      ****************************************
  534. %      *        OTHER MODIFICATIONS TO        *
  535. %      *        TeX AND LaTeX COMMANDS        *
  536. %      ****************************************
  537. %
  538.  
  539. % \rule
  540.  
  541. \def\@rule[#1]#2#3{\@tempdima#3\advance\@tempdima #1\leavevmode
  542.  \hbox{\if@visible\vrule
  543.   \@width#2 \@height\@tempdima \@depth-#1\else
  544. \vrule \@width \z@ \@height\@tempdima \@depth-#1\vrule 
  545.  \@width#2 \@height\z@\fi}}
  546.  
  547. % \_  (Added 10 Nov 86)
  548.  
  549. \def\_{\leavevmode \kern.06em \if@visible\vbox{\hrule width.3em}\else
  550.    \vbox{\hrule height 0pt width.3em}\vbox{\hrule width 0pt}\fi}
  551.  
  552. % \overline, \underline, \frac and \sqrt
  553. %
  554. % \@mathbox{STYLE}{BOX}{MTEXT} : Called in math mode, typesets MTEXT and
  555. %   stores result in BOX, using style STYLE.
  556. %
  557. % \@bphant{BOX}    : Creates a phantom with dimensions BOX.
  558. % \@vbphant{BOX}   : Creates a phantom with ht of BOX and zero width.
  559. % \@hbphant{BOX}   : Creates a phantom with width of BOX and zero ht & dp.
  560. % \@hvsmash{STYLE}{MTEXT} : Creates a copy of MTEXT with zero height and width
  561. %                           in style STYLE.
  562.  
  563. \def\@mathbox#1#2#3{\setbox#2\hbox{$\m@th#1{#3}$}}
  564.  
  565. \def\@vbphantom#1{\setbox\tw@\null \ht\tw@\ht #1 \dp\tw@\dp #1
  566.    \box\tw@}
  567.  
  568. \def\@bphantom#1{\setbox\tw@\null \wd\tw@\wd #1 \ht\tw@\ht #1 \dp\tw@\dp #1
  569.    \box\tw@}
  570.  
  571. \def\@hbphantom#1{\setbox\tw@\null \wd\tw@\wd #1 \ht\tw@\z@ \dp\tw@\z@
  572.    \box\tw@}
  573.  
  574. \def\@hvsmash#1#2{\@mathbox#1\z@{#2}\ht\z@\z@ \dp\z@\z@ \wd\z@\z@ \box\z@}
  575.  
  576. \def\underline#1{\relax\ifmmode 
  577.   \@xunderline{#1}\else $\@xunderline{\hbox{#1}}$\relax\fi}
  578.  
  579. \def\@xunderline#1{\mathchoice{\@xyunderline\displaystyle{#1}}{\@xyunderline
  580.     \textstyle{#1}}{\@xyunderline\scriptstyle{#1}}{\@xyunderline
  581.       \scriptscriptstyle{#1}}}
  582.  
  583. \def\@xyunderline#1#2{\@mathbox#1\@smashboxa{#2}\@hvsmash#1{\copy\@smashboxa}
  584.    \if@visible \@hvsmash#1{\@@underline{\@bphantom\@smashboxa}}\fi
  585.   \@mathbox#1\@smashboxb{\@@underline{\box\@smashboxa}}
  586.    \@bphantom\@smashboxb}
  587.  
  588. \let\@@overline=\overline 
  589.  
  590. \def\overline#1{\mathchoice{\@xoverline\displaystyle{#1}}{\@xoverline
  591.     \textstyle{#1}}{\@xoverline\scriptstyle{#1}}{\@xoverline
  592.       \scriptscriptstyle{#1}}}
  593.  
  594. \def\@xoverline#1#2{\@mathbox#1\@smashboxa{#2}\@hvsmash#1{\copy\@smashboxa}
  595.    \if@visible \@hvsmash#1{\@@overline{\@bphantom\@smashboxa}}\fi
  596.    \@mathbox#1\@smashboxb{\@@overline{\box\@smashboxa}}
  597.    \@bphantom\@smashboxb}
  598.  
  599.  
  600. % \@frac {STYLE}{DENOMSTYLE}{NUM}{DEN}{FONTSIZE} : Creates \frac{NUM}{DENOM}
  601. %   in style SYTLE with NUM and DENOM in style DENOMSTYLE
  602. %   FONTSIZE should be \textfont \scriptfont or \scriptscriptfont
  603.  
  604. \def\frac#1#2{\mathchoice
  605.    {\@frac\displaystyle\textstyle{#1}{#2}\textfont}{\@frac
  606.           \textstyle\scriptstyle{#1}{#2}\textfont}{\@frac
  607.           \scriptstyle\scriptscriptstyle{#1}{#2}\scriptfont}{\@frac
  608.           \scriptscriptstyle\scriptscriptstyle{#1}{#2}\scriptscriptfont}}
  609.  
  610. \def\@frac#1#2#3#4#5{\@mathbox#2\@smashboxa{#3}\@mathbox#2\@smashboxb{#4}
  611.    \@mathbox#1\@smashboxc{\copy\@smashboxa\over\copy\@smashboxb}   
  612.    \@vbphantom\@smashboxc
  613.    \vcenter{\vbox to \z@{\hsize \wd\@smashboxc
  614.                          \vss\nointerlineskip
  615.                          \hbox to \wd\@smashboxc{\hss\box\@smashboxa\hss}
  616.               \hrule height \z@}
  617.           \vskip 7\fontdimen8#53            
  618.           \if@visible\hrule height \fontdimen8#53\else \vskip \fontdimen8#53\fi
  619.           \vskip 7\fontdimen8#53            
  620.           \nointerlineskip
  621.           \vbox to \z@{\nointerlineskip
  622.                          \hbox to \wd\@smashboxc{\hss\box\@smashboxb\hss}
  623.               \hrule height \z@\vss}
  624.            }}
  625.  
  626. \def\r@@t#1#2{\setbox\z@\hbox{$\m@th#1\@xysqrt#1{#2}$}
  627.   \dimen@\ht\z@ \advance\dimen@-\dp\z@
  628.   \mskip5mu\raise.6\dimen@\copy\rootbox \mskip-10mu \box\z@}
  629.  
  630. \def\sqrt{\@ifnextchar[{\@sqrt}{\@xsqrt}}
  631. \def\@sqrt[#1]{\root #1\of}
  632. \def\@xsqrt#1{\mathchoice{\@xysqrt\displaystyle{#1}}{\@xysqrt
  633.      \textstyle{#1}}{\@xysqrt\scriptstyle{#1}}{\@xysqrt
  634.     \scriptscriptstyle{#1}}}
  635. \def\@xysqrt#1#2{\@mathbox#1\@smashboxa{#2}\if@visible
  636.     \@hvsmash#1{\@@sqrt{\@bphantom\@smashboxa}}\fi
  637.     \phantom{\@@sqrt{\@vbphantom\@smashboxa}}\box\@smashboxa}
  638.  
  639. \newbox\@smashboxa
  640. \newbox\@smashboxb
  641. \newbox\@smashboxc
  642.  
  643.  
  644.  
  645.  \message{output,}
  646. %      ****************************************
  647. %      *   CHANGES TO LaTeX \output ROUTINE   *
  648. %      ****************************************
  649. %
  650. %  \@makecol ==
  651. %    BEGIN
  652. % % Following test added for slides to check if extra page
  653. %     if @makingslides = T
  654. %     then if \c@page > 0
  655. %             then if \c@note > 0
  656. %                     then type 'Note \thenote too long.'
  657. %                     else if \c@overlay > 0
  658. %                            then type 'Overlay \theoverlay too long.'
  659. %                            else type 'Slide \theslide too long'
  660. %     fi     fi     fi     fi
  661. %     ifvoid \insert\footins
  662. %        then  \@outputbox := \box255
  663. %        else  \@outputbox := \vbox {\unvbox255
  664. %                                    \vskip \skip\footins
  665. %                                    \footnoterule
  666. %                                    \unvbox\@footinsert
  667. %                                   }
  668. %    fi
  669. %    \@freelist :=G \@freelist * \@midlist
  670. %    \@midlist  :=G empty
  671. %    \@combinefloats
  672. %    \@outputbox := \vbox to \@colht{\boxmaxdepth := \maxdepth
  673. %                                     \vfil     %%\vfil added for slides
  674. %                                     \unvbox\@outputbox
  675. %                                     \vfil }   %%\vfil added for slides
  676. %    \maxdepth :=G \@maxdepth
  677. %    END
  678.  
  679. \def\@makecol{\if@makingslides\ifnum\c@page>\z@ \@extraslide\fi\fi
  680. \ifvoid\footins \setbox\@outputbox\box\@cclv \let\@botfil\vfil
  681.    \else\let\@botfil\relax\setbox\@outputbox
  682.      \vbox{\unvbox\@cclv\vfil
  683.            \vskip\skip\footins\footnoterule\unvbox\footins\vskip
  684.             \z@ plus.1fil\relax}\fi
  685.   \xdef\@freelist{\@freelist\@midlist}\gdef\@midlist{}\@combinefloats
  686.      \setbox\@outputbox\vbox to\@colht{\boxmaxdepth\maxdepth
  687.         \vfil\unvbox\@outputbox\@botfil}\global\maxdepth\@maxdepth}
  688.  
  689. \def\@extraslide{\ifnum\c@note>\z@ 
  690.     \@warning{Note \thenote\space too long}\else 
  691.      \ifnum\c@overlay>\z@ 
  692.         \@warning{Overlay \theoverlay\space too long}\else 
  693.         \@warning{Slide \theslide\space too long}\fi\fi}
  694.  
  695.  \message{init}
  696. %      ****************************************
  697. %      *    SPECIAL SLiTeX INITIALIZATIONS    *
  698. %      ****************************************
  699. %
  700. \nofiles
  701. \@visibletrue
  702.  
  703.